home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / msds-prl / ptchds19.zoo / cpp_t < prev    next >
Text File  |  1992-02-23  |  2KB  |  67 lines
  1. MS-DOS patches to perl.
  2. Apply this patch to the standard perl source, version 4, patch level 19,
  3. using "patch -p."  Do this in the root directory of the perl source
  4. distribution.
  5.  
  6. You can cat all these patches together and pipe the output to patch -p.
  7.  
  8. Len Reed
  9. Holos Software, Inc.
  10. ..!gatech!holos0!lbr
  11. holos0!lbr@gatech.edu
  12. --------------------------------------
  13. *** t/comp/cpp.t.old    Tue Apr 23 22:38:14 1991
  14. --- t/comp/cpp.t    Thu Nov 14 08:57:06 1991
  15. ***************
  16. *** 15,25 ****
  17.       print "not ok 2\n";
  18.   #endif
  19.   
  20. ! open(TRY,">Comp.cpp.tmp") || die "Can't open temp perl file.";
  21.   
  22.   ($prog = <<'END') =~ s/X//g;
  23.   X$ok = "not ok 3\n";
  24. ! X#include "Comp.cpp.inc"
  25.   X#ifdef OK
  26.   X$ok = OK;
  27.   X#endif
  28. --- 15,25 ----
  29.       print "not ok 2\n";
  30.   #endif
  31.   
  32. ! open(TRY,">Comp_cpp.tmp") || die "Can't open temp perl file.";
  33.   
  34.   ($prog = <<'END') =~ s/X//g;
  35.   X$ok = "not ok 3\n";
  36. ! X#include "Comp_cpp.inc"
  37.   X#ifdef OK
  38.   X$ok = OK;
  39.   X#endif
  40. ***************
  41. *** 28,39 ****
  42.   print TRY $prog;
  43.   close TRY;
  44.   
  45. ! open(TRY,">Comp.cpp.inc") || (die "Can't open temp include file.");
  46.   print TRY '#define OK "ok 3\n"' . "\n";
  47.   close TRY;
  48.   
  49.   $pwd=`pwd`;
  50.   $pwd =~ s/\n//;
  51. ! $x = `./perl -P Comp.cpp.tmp`;
  52.   print $x;
  53. ! unlink "Comp.cpp.tmp", "Comp.cpp.inc";
  54. --- 28,39 ----
  55.   print TRY $prog;
  56.   close TRY;
  57.   
  58. ! open(TRY,">Comp_cpp.inc") || (die "Can't open temp include file.");
  59.   print TRY '#define OK "ok 3\n"' . "\n";
  60.   close TRY;
  61.   
  62.   $pwd=`pwd`;
  63.   $pwd =~ s/\n//;
  64. ! $x = `./perl -P Comp_cpp.tmp`;
  65.   print $x;
  66. ! unlink "Comp_cpp.tmp", "Comp_cpp.inc";
  67.